10 PRINT"[147]":PRINT TAB(12)"1526 HI-RES DUMP"
20 PRINT:PRINT"PLEASE WAIT ...":PRINT
30 READ LN,SA,EA:LN=LN+30
40 FOR I=0 TO EA-SA
50 READ BY:POKE SA+I,BY:SUM=SUM+BY
60 IF INT((I+1)/8)*8<>(I+1) THEN90
70 READ CS:IF CS<>SUM THEN120
80 SUM=0:LN=LN+10
90 NEXT
100 IF INT(I/8)*8<>I THEN READ CS:IF CS<>SUM THEN120
110 PRINT:PRINT"TYPE SYS49152 TO BEGIN HI-RES DUMP":END
120 PRINT"**** ERROR IN LINE";LN
130 DATA 100
140 DATA 49152
150 DATA 49521
160 DATA 169,18,133,10,32,33,192,32,619
170 DATA 67,192,32,81,192,76,84,193,917
180 DATA 32,177,192,162,8,230,3,208,1012
190 DATA 2,230,4,202,208,247,76,65,1034
200 DATA 193,173,0,221,41,3,73,3,707
210 DATA 160,6,10,136,208,252,133,4,909
220 DATA 173,24,208,41,8,240,7,24,725
230 DATA 169,32,101,4,133,4,169,0,612
240 DATA 133,3,96,24,165,3,105,64,593
250 DATA 133,13,165,4,105,31,133,14,598
260 DATA 96,169,0,32,189,255,169,4,914
270 DATA 162,4,160,255,32,186,255,32,1086
280 DATA 192,255,32,204,255,162,4,32,1136
290 DATA 201,255,169,13,32,210,255,169,1304
300 DATA 0,32,189,255,169,6,162,4,817
310 DATA 160,6,32,186,255,32,192,255,1118
320 DATA 32,204,255,162,6,32,201,255,1147
330 DATA 169,18,32,210,255,169,0,32,885
340 DATA 189,255,169,5,162,4,160,5,949
350 DATA 32,186,255,32,192,255,32,204,1188
360 DATA 255,162,4,32,201,255,169,254,1332
370 DATA 32,210,255,169,141,32,210,255,1304
380 DATA 96,32,204,255,162,5,32,201,987
390 DATA 255,162,0,181,240,32,210,255,1335
400 DATA 232,224,8,208,246,169,13,32,1132
410 DATA 210,255,32,204,255,162,4,32,1154
420 DATA 201,255,166,10,240,8,169,29,1078
430 DATA 32,210,255,202,208,248,169,254,1578
440 DATA 32,210,255,169,141,32,210,255,1304
450 DATA 230,10,165,10,201,58,208,9,891
460 DATA 169,18,133,10,169,13,32,210,754
470 DATA 255,96,169,0,133,240,133,241,1267
480 DATA 133,242,133,243,133,244,133,245,1506
490 DATA 133,246,133,247,133,15,169,128,1204
500 DATA 133,16,169,0,133,17,164,17,649
510 DATA 177,3,37,16,240,16,169,128,786
520 DATA 166,17,240,4,74,202,208,252,1163
530 DATA 166,15,21,240,149,240,230,17,1078
540 DATA 165,17,201,8,208,224,70,16,909
550 DATA 230,15,165,15,201,8,208,210,1052
560 DATA 96,165,3,197,13,208,10,165,857
570 DATA 4,197,14,208,4,32,231,255,945
580 DATA 0,76,13,192,169,0,133,17,600
590 DATA 164,17,177,3,208,14,230,17,830
600 DATA 165,17,201,8,208,242,32,232,1105
610 DATA 192,76,19,192,32,250,192,76,1029
620 DATA 16,192,208